home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / teglp.zip / SAMPROGS.ZIP / SAMSHELL.PAS < prev    next >
Pascal/Delphi Source File  |  1990-06-29  |  584b  |  39 lines
  1. {$F+}  { -- far code model is required for any functions that }
  2.        { -- are to be used as Event Handlers }
  3.  
  4. Uses
  5.     dos,
  6.     graph,
  7.  
  8.     virtmem,
  9.     teglfont,
  10.     fastgrph,
  11.     TEGLIntr,
  12.     TEGLICON,
  13.     TEGLGRPH,
  14.     TEGLUnit,
  15.     TEGLMenu,
  16.     SenseMs,
  17.     DebugUnt,
  18.     TEGLEasy;
  19.  
  20. { -- insert variables here }
  21.  
  22.  
  23. { -- insert procedures and functions here }
  24.  
  25.  
  26.  
  27. BEGIN
  28.  
  29.   EasyTEGL;
  30.  
  31.   { -- insert the example code here }
  32.   { -- press Ctrl-Break to exit program }
  33.  
  34.  
  35.   { -- control is then passed to the supervisor }
  36.  
  37.   TEGLSupervisor;
  38. END.
  39.